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DISCONNECT FOR SEQ. ORG. 16-SEP-1984 00:47:00 VAX/VMS Macro v04-00 


DECLARATIONS 
RMSDISCONNECT1 = SEQ. FILE ORG. SPECIFIC DISCONNECT CODE 


— 


<D 


10 
DISCONNECT FOR SEQ. ORG. 1 ~Sen1o8t 99 247: 00 AX/VMS Macro V04-00 Page 1 
“SEP=1984 16:23: RMS .SRCIRMIDISCON.MAR; 1 (1) 


SBEGIN RMIDISCON,000,RMSRMS1,<DISCONNECT FOR SEQ. ORG.> 


=PPARAARAARASAAAAAAAALALALALALAAALELALAALE ALES AAS ASA LASERS ALE AEE ASE RARER ESR S RSS GY 


i 7 
4 it * 
5 ;* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
& :® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
- ALL RIGHTS RESERVED. * 
° te 
0 § 3* THIS SOFTWARE as FURNISHED wees A LICENSE AND MAY BE USED AND gore * 
00 10 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0 11 ;* INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
§ 1 3* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
it 13 i? TRANSFERRED. * 
6 ® 
8298 16 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 17 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 13 - CORPORATION. : 
0000 0 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
8008 1 a SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
e ® 
0000 : 3* « 
44 ¢ FRA AAR AAA AA REAR AAAA AERA AAA RAHA AAAAERARAAAAAAAEAAARAARERARAAARAAAAAAAAKeReeAAe 
0000 6 3++ 
0000 73 FACILITY: RMS32 
0000 8 ; 
0000 9 ; ABSTRACT: 
444 ? : Module to give back all storage associated with IRAB. 
0000 : ; 
0000 ; ENVIRONMENT: 
444 : 3 STAR processor running STARLET EXEC. 
9009 6 : AUTHOR: L F Laverdure, CREATION DATE: 31-Mar-1977 
9009 8 : MODIFIED @Y: 
000 40: v03-001 KBT0138 Keith B. Thompson 20-Aug-1982 
44 ¢} 3 Reorganize psects 
$09 tg : V02-008 REFORMAT Frederick E. Deen, Jr. 25-Jul-1980 
0000 $ : This code was reformatted to adhere to RMS standards 
000 46 ; v007 PSKQOT P S Knibbe 05-Dec-1979 
4 47; On foresee soezeees She IRBS$V_EOF bit. is moved into 
3p 48 ; the IFBSV_EOF b 
94 $? : 
$009 3 : 


<z 


RMIDISCON DISCONNECT FOR SEQ. ORG. 16-SEP-1986 00:47:00 VAX/VMS Macro v04-00 Pa 
YO4-O00 DECLARATIONS ot) i et aes fT Se PO we 8) 


-SBTTL DECLARATIONS 


: INCLUDE FILES: 


+ MACROS: 


PA O OCOONAUE WW 


EQUATED SYMBOLS: 


OWN STORAGE: 


K 10 
ILE ORG. SPECIFIC ‘S-Sep-1984 $o135;1) FANS ERCTANT SIS CON OAR: 1 


SEP-19 0 


sls 


Do 
Bee 
RAW 
on 
az 
mn 
o 
“ 
m 
on 
=o 
—zD 
wm 
wm 
“vo 


AX/VMS Macro Vv04-00 Page (3) 
-SBTTL RMSDISCONNECT1 = SEQ. FILE ORG. SPECIFIC DISCONNECT CODE 


3 ++ 
; RMSDISCONNECT1 = Sequential file organization specific DISCONNECT code 


; 1.0 If not Going BLOCK 1/0, call RMSWTLST1 to write out last 
thet) with peddling and extending as required. 

; 9 If disk reset IFBSV_EOF. 

3 dep Af noreten ma sage move IRBS$SV_EOF bit to IFBSV_EOF bit 

; 3.0 Jump to RMSDISCOMMON 


; CALLING SEQUENCE: 
BSBW RMSDISCONNECT1 


(entered at RMSDISCONNECT1 via case branch from 
RMSDISCONNECT with return PC on STACK) 


; INPUT PARAMETERS: 
R11 IMPURE AREA address 
R10 IFAB address 
R9 IRAB address 
RAB address 


$ IMPLICIT INPUTS: 


SDOOOCOOOOOCOOSOOSOSOOOOOOOOOOOSCSSoOSO “4 


SOOOOCOCOCOCOOOCSOOOOOOSOOOOSOOOOOOoOSoOSo | 


SOoOCCSOSOOOSOOSOoOooOooooooooooooooooosoo 
POND 9 MF QOOOQOOOOOCOCOCOOVOOOOO OO OWWDWOMDmmcmMcn VI 


RO ODNAMNES WN O OD NAMEN 9 OD NAW EWN 9 ODNAUE WWI OOONIOU 


1 
1 
! The contents of the various RMS internal structures 
B8 ! s OUTPUT PARAMETERS: 
$0 1 RO STATUS CODE 
33 : R1-R7,AP destroyed 
0000 =«+1 ; IMPLICIT OUTPUTS: 
0000. = : 
0000 «(1 IF BSV_EOF cleared 
+ 5 ! ; The implicit outputs of RMSWTLST1 
83 } ; COMPLETION CODES: 
0000. =«+1 Standard RMS 
0000. = : 
8 $ ! : SIDE EFFECTS: 
09 3 : May be running at AST Level. 
000 «61 


<z 


seuss 
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DISCONNECT FOR SEQ. ORG. 16-SEP-1984 00:47: AX/VMS Macro V04-00 Page 
RAST SCONNEC TS - SEQ. FILE ORG. SPECIFIC $7 een 188 99:55:99 FRMS SRCIRMIDISCON-MAR; 1 . 
8 124 RMSDISCONNECT1:: 
$0 01 158 MOL RIK cicieat 
3; anticipate success 
0c FA 3} pS 5 : 5 BBS #IRBSV_PPF_IMAGE, (R9), 10S $ Branch tf sngirect PPF 
3; to avoid write 
07 38 AA 9 3 0 1 § BBS #IFBSV_BIO,IFBSB_FAC(R10),10$ ; branch if BLOCK I/0 
69 E 4 130 BBS #IRBSV_BIO_LAST,TR9) ,10$ 3; branch if last operation 
1 131 3 was a BLOCK I/0 operation 
Bie 1 § 3 (mixed block and rec. ops) 
FFE7* 30 18 1 BSBW RMSWTLST1 3; write last block if needed 
1¢ ~=6—E1)— 001 134 10$: BBC #DEVS$V_RND,- : branch if not disk 
04 6A Bie 135 ree PRIM_DEV(R10),15$ 
1D «1 $ CSB #IFBSV_EOF > (R10) ; clear EOF flag 
05 €1 0021 £42137 15$ BBC #DEV$V_SQD,- :; branch if not magtape 
10 6A 8 138 ree PRIM_DEV(R10) ,20$ 
18 1 00 139 BBC #DEVST_FOR,- : branch if not foreign 
OC 6A 00 140 IFBSL_PRIM_DEV(R10) ,20$ 
43 9 161 CSB oirpev co 7 (R10 ; assume it’s not at EOF 
0469 21 #2£€1 002d 126 BBC #IRBSV_EOF ,(R9) ,20$ ; that's right 
0031 14 $SB #IFBSV-EOF (R105 : nope - set IFAB bit 
FFC8*’ 30 0035 144 208: BSBW RMSOISTOMM 3; go finish up 
09 22 AA 05 E1 Ones 132 BBC #1FBSV_B10,1FBSB_FAC(R10) ,30$ : branch if not BLOCK I/0 
003D 147; 
003D 148; This connect was for BLOCK I/0. 
0030 149; Reset to BRO if also set. 
te 
04 22 AA 06 €1 0030 136 BBC #1FBSV_BRO,IFBSB_FAC(R10),30$ ; branch if BRO not also set 
22 AA 20) BA 0042~= «(15 BICB2 #IFBSM_B10,1FBSB_FAC(R10) : clear BI 
05 B068 154 30$: RSB 3; return to caller 
004 155 -END 


<x 


RMIDISCON 
Symbol table 


$$.PSECT_EP 
Senne test 


SRMS_PBUGCHK 
$SRMS~TBUGCHK 
S$SRMS_UMODE 


“FAC 
BSL-PRIM_DEV 
$M~B10 


$V—PPF_IMAGE 
OSA TRACE 


$D 1 SCOMMON 
RM$DISCONNECT1 
RMSWTLST1 
TPT$SL_DISCON1 


PSECT name 


Phase 


Initialization 


90 bytes 


Command processing 
Pass 

Symbol table sort 
Pass 2 

Symbol iable output 
Psect synopsis output 


Cross-reference output 
Assembler run totals 


BBrobooyie 
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DISCONNECT FOR SEQ. ORG. 16-SEP-1984 00:47:00 VAX/VMS Macro v04-00 p 
Breer r158e orseity AMS eecTRaiorecGNowar:1 Page 
0 


Reeeeenre 
ReARREEE 


Reaekkeee 


x 01 
x 1 
00000000 RG 4 
x 1 
x 01 


Reeeeree 


$ooeoowonwoeeonoe + 
H Psect synopsis ! 
Allocation PSECT No. Attributes 
00000000 <( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
00000047 ( 71.) O1¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
00000000 < 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
fom en emo ae n mwa meee a 
: Performance indicators ! 
Page faults CPU Time Eiapsed Time 


= 
oO FWO 


424 


Limit was 1200 pages. 7 
pages) of virtual memory were used to buffer the intermediate core. 

inere were 30 pages of symbol table space allocated to hold 444 non-local and 7 local symbols. 
155 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

15 pages of virtual memory were used to define 14 macros. 


DOO—WO0-V-0 
NOD —O—= NOM 


RMIDISCON 
VAX-11 Macro Run Statistics 


Macro Library name 


“$95 8bunse: ESYS. rp WY POE 1 


$255$DUA28 MLB; 1 
55$DUA28: (SYSLIBJSTARLET.MLB;2 


Taras (all Libraries) 


531 GETS were required to define 10 macros. 


DISCONNECT FOR SEQ. ORG. 


teetreeeceren menos wwc cama n ea} 


! Macro Library statistics ! 


junwewem eSeeoceocec= nempeneant 


Macros defined 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RM1DISCON/OBJ=O0BJ$:RMIDISCON MSRC$:RM1IDISCON/UPDATE=(ENHS:RM1DISCON) +EXECML$/LIB+LIB$:RMS/LIB 


1986 90:35:17 


AX/VMS Macro V04-00 
RMS.SRCIRMIDISCON.MAR; 1 
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